home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb26537.lsp < prev    next >
Text File  |  1998-03-15  |  3KB  |  77 lines
  1. ;=============265.37 VERSTIFTUNGSELEMENT
  2.  
  3.  
  4.  
  5. (defun C:26537d1 (/ P0 P1 P2 P10 P11 P12 P13)
  6.    (EAITDBL "0026537")
  7.    (princ (strcat "\n\n" EAITbez1))
  8.    (EAITvari)
  9.    (EAITvars)
  10.    (setvar "ORTHOMODE" 0)
  11.    (setvar "OSMODE" 512)
  12.    (EAITmsg "mb_mld12" "\n  " "015" ": ")  ;1. Nutlinie:
  13.    (setq P0 (getpoint))
  14.    (setvar "OSMODE" 128)
  15.    (EAITmsg "mb_mld12" "\n  " "016" ": ")  ;2. Nutlinie:
  16.    (setq P1 (getpoint P0))
  17.    (setvar "ORTHOMODE" 0)
  18.    (setvar "OSMODE" 0)
  19.    (setvar "APERTURE" 4)
  20.    (setq P10 (osnap P0 EAITofend)
  21.          P11 (osnap P1 EAITofend)
  22.          P12 (osnap P0 EAITofmit)
  23.          P13 (osnap P1 EAITofmit)
  24.          P1 (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
  25.          P2 (mapcar '/ (mapcar '+ P12 P13) '(2 2 2)) )
  26.    (command EAITege (strcat EAITpfn "26537d1") P1 "" "" P2 )
  27.  
  28.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib 333)) 4) "" "" ""
  29.             EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  30.    )
  31.  
  32.    (EAITvarz2)
  33.    (princ)
  34. )
  35.  
  36.  
  37. (defun C:26537v1 (/ P0 P1 P2 P10 P11 P12 P13 GName WH WV Wx)
  38.    (EAITDBL "0026537")
  39.    (princ (strcat "\n\n" EAITbez1))
  40.    (EAITvari)
  41.    (EAITvars)
  42.    (setvar "ORTHOMODE" 0)
  43.    (setvar "OSMODE" 512)
  44.    (EAITmsg "mb_mld12" "\n  " "015" ": ")  ;1. Nutlinie:
  45.    (setq P0 (getpoint))
  46.    (setvar "OSMODE" 128)
  47.    (EAITmsg "mb_mld12" "\n  " "016" ": ")  ;2. Nutlinie:
  48.    (setq P1 (getpoint P0))
  49.    (setvar "ORTHOMODE" 0)
  50.    (setvar "OSMODE" 0)
  51.    (setvar "APERTURE" 4)
  52.    (setq P10 (osnap P0 EAITofend)
  53.          P11 (osnap P1 EAITofend)
  54.          P12 (osnap P0 EAITofmit)
  55.          P13 (osnap P1 EAITofmit)
  56.          P1  (mapcar '/ (mapcar '+ P10 P11) '(2 2 2))
  57.          P2  (mapcar '/ (mapcar '+ P12 P13) '(2 2 2))
  58.          WH  (EAITbig (angle P1 P2))
  59.          WV  (EAITbig (angle P10 P11))
  60.    )
  61.    (cond ((and (>= WH   0)(< WH  90))(if (and (>= WV 0)(< WV 180)) (setq GName (strcat EAITpfn "26537V1") Wx  26) (setq GName (strcat EAITpfn "26537V2") Wx -26)))
  62.          ((and (>= WH  90)(< WH 180))(if (and (>= WV 90)(< WV 270))(setq GName (strcat EAITpfn "26537V1") Wx  26) (setq GName (strcat EAITpfn "26537V2") Wx -26)))
  63.          ((and (>= WH 180)(< WH 270))(if (and (>= WV 0)(< WV 180)) (setq GName (strcat EAITpfn "26537V2") Wx -26) (setq GName (strcat EAITpfn "26537V1") Wx  26)))
  64.          (T                          (if (and (>= WV 90)(< WV 270))(setq GName (strcat EAITpfn "26537V2") Wx -26) (setq GName (strcat EAITpfn "26537V1") Wx  26)))
  65.    )
  66.    (command EAITege GName P1 "" "" P2 )
  67.  
  68.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ (EAITbw)(EAITgib Wx)) 40) "" "" ""
  69.             EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  70.    )
  71.  
  72.    (EAITvarz2)
  73.    (princ)
  74. )
  75.  
  76. (princ)
  77.